home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / function.arc / FUNC02.INC next >
Encoding:
Text File  |  1985-06-15  |  384 b   |  12 lines
  1. { Display character                                                    }
  2.  
  3. PROCEDURE Func02 (C : CHAR);
  4.  BEGIN
  5.   WITH Registers DO
  6.    BEGIN
  7.     AX:=((AX AND $00FF) OR ($02 SHL 8));
  8.     DX:=((DX AND $FF00) OR INTEGER (C));
  9.     MSDOS (Registers);
  10.    END;
  11.  END;
  12.